data <- d2
Copartisan_CACE_S2_wate <- cace('waterboarding.followup', 
                     'torture.baseline', 
                     data, B, conditioning_covariate = 'same.party')
Copartisan_CACE_S2_clos <- cace('guantanamo.followup', 
                     'torture.baseline', 
                     data, B, conditioning_covariate = 'same.party')
Copartisan_CACE_S2_trus <- cace('trust.followup', 
                     'trust.baseline', 
                     data, B, conditioning_covariate = 'same.party')
Copartisan_CACE_S2_appr <- cace('approval.followup', 
                     'approval.baseline', 
                     data, B, conditioning_covariate = 'same.party')
Copartisan_CACE_S2_vint <- cace('vote.followup', 
                     'vote.baseline', 
                     data, B, conditioning_covariate = 'same.party')
Copartisan_CACE_S2_actv <- cace('vote.november', 
                     'vote.baseline', 
                     data, B, conditioning_covariate = 'same.party')